home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 November: Tool Chest / Dev.CD Nov 96 TC / Dev.CD Nov 96 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / Sources / MSAEGetData.c < prev    next >
Encoding:
Text File  |  1996-07-09  |  19.3 KB  |  735 lines  |  [TEXT/CWIE]
  1. // MSAEGetData.c
  2. //
  3. // Original version by Jon Lansdell and Nigel Humphreys.
  4. // 4.0 and 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1996, all rights reserved.
  6.  
  7. /*
  8.         Changes for 4.0
  9.  
  10.         29-Feb-96 : GS : Added abiltiy to get properties from menus and menu items.
  11.         29-Feb-96 : GS : Added script properties to application and document objects.
  12. */
  13.  
  14. #include "MSAEGetData.h"
  15.  
  16. #include "MSWindow.h"
  17. #include "MSGlobals.h"
  18. #include "MSAEUtils.h"
  19. #include "MSAppleEvents.h"
  20.  
  21. #include "MSAETextUtils.h"
  22. #include "MSAEWindowUtils.h"
  23. #include "MSAEMenuUtils.h"
  24. #include "MSAccessors.h"
  25. #include "MSAERecording.h"
  26. #include "MSToken.h"
  27. #include "MSScript.h"
  28. #include "MSResultWind.h"
  29.  
  30.  
  31. #include <AEPackObject.h>
  32. #include <Resources.h>
  33. #ifdef THINK_C
  34.     #include "PLStrs.h"
  35. #else
  36.     #include <PLStringFuncs.h>
  37. #endif
  38.  
  39.  
  40.     // Globals
  41. extern short        gRefNum;
  42.  
  43. // -----------------------------------------------------------------------
  44. //        Name:             DoGetData
  45. //        Purpose:        Handles the GetData AppleEvent.
  46. // -----------------------------------------------------------------------
  47.  
  48. pascal OSErr     DoGetData(const AppleEvent    *theAppleEvent,
  49.                                 AppleEvent    *reply,
  50.                                 long        handlerRefCon)
  51. { 
  52. #ifdef __MWERKS__
  53.     #pragma unused (handlerRefCon)
  54. #endif
  55.  
  56.     AEDesc        directObj = {typeNull, NULL},
  57.                 result = {typeNull, NULL};
  58.     Size        actualSize;
  59.     DescType    returnedType;
  60.     DescType    aWantType;
  61.     OSErr        err;
  62.     
  63.         // extract the direct object, which is the object
  64.         // whose data is to be returned
  65.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  66.     if (noErr != err) goto done;
  67.         
  68.         // now the get the type of data wanted - optional
  69.     err = AEGetParamPtr( theAppleEvent, keyAERequestedType, typeType,
  70.                                 &returnedType, (Ptr)&aWantType, sizeof( aWantType ), &actualSize );
  71.     if ( noErr != err )
  72.         aWantType = typeWildCard;
  73.         
  74.     err = GotRequiredParams(theAppleEvent);
  75.     if (noErr != err) goto done;
  76.     
  77.         // get the data
  78.     err = HandleGetData( &directObj, aWantType, &result );
  79.         
  80.     err = AddResultToReply(&result, reply, err);
  81.  
  82. done:                
  83.     (void)AEDisposeDesc( &directObj );
  84.     (void)AEDisposeDesc( &result );
  85.         
  86.     return(err);
  87. }    // DoGetData
  88.  
  89.  
  90. // -----------------------------------------------------------------------
  91. //    Name:         HandleGetData
  92. //    Purpose:    Coerces theObj into a token which we understand and
  93. //                extracts the data requested in the token and puts it
  94. //                into dataDesc.
  95. // -----------------------------------------------------------------------
  96.  
  97. OSErr    HandleGetData( AEDesc *theObj, DescType theWantType, AEDesc *result )
  98. {
  99.     TextToken       theTextToken;
  100.     Size            tokenSize;
  101.     AEDesc          objTokenDesc = {typeNull, NULL},
  102.                     itemDesc = {typeNull, NULL},
  103.                     resultDesc = {typeNull, NULL};
  104.     long            index;
  105.     DescType        returnedType;
  106.     OSErr           err;
  107.  
  108.             // Coerce theObj into a token which we can use - 
  109.             //  this may involve converting a list of tokens to a list of property tokens
  110.     if ( typeObjectSpecifier == theObj->descriptorType )
  111.         err = AEResolve( theObj, kAEIDoMinimum, &objTokenDesc );
  112.     else if ( typeNull != theObj->descriptorType )    // Otherwise, just copy it
  113.         err = AEDuplicateDesc( theObj, &objTokenDesc );
  114.     
  115.     if ( noErr != err ) goto done;
  116.     
  117.     switch ( objTokenDesc.descriptorType )
  118.     {
  119.         case typeMyApplProp:
  120.             err = GetApplicationProperty( &objTokenDesc, theWantType, result );
  121.             break;
  122.             
  123.         case typeMyTextProp:
  124.             err = GetTextProperty(&objTokenDesc, result);
  125.             break;
  126.             
  127.         case typeMyWindowProp:
  128.             err = GetWindowProperty(&objTokenDesc, result);
  129.             break;
  130.             
  131.         case typeMyDocumentProp:
  132.             err = GetDocumentProperty( &objTokenDesc, theWantType, result );
  133.             break;
  134.             
  135.         case typeMyMenuProp:
  136.             err = GetMenuProperty( &objTokenDesc, theWantType, result );
  137.             break;
  138.             
  139.         case typeMyMenuItemProp:
  140.             err = GetMenuItemProperty( &objTokenDesc, theWantType, result );
  141.             break;
  142.             
  143.         case typeMyText:
  144.             GetRawDataFromDescriptor( &objTokenDesc, (Ptr)&theTextToken,
  145.                                                 sizeof(theTextToken), &tokenSize );
  146.  
  147.             if ( theWantType == typeChar || theWantType == typeIntlText )
  148.                 err = GetTextTextProperty( &theTextToken, result );
  149.             else                // For OSADoEvent()
  150.                 err = GetTextTokenObjectSpecifier( &theTextToken, result );
  151.             break;
  152.             
  153.         case typeAEList:
  154.             err = AECountItems(&objTokenDesc, &index);
  155.             if (noErr != err) goto done;
  156.     
  157.             for (; index > 0; index--)
  158.             {
  159.                 err = AEGetNthDesc(&objTokenDesc, index, typeWildCard, &returnedType, &itemDesc);
  160.     
  161.                 if (noErr == err)        // Call this function recursively if necessary
  162.                     err = HandleGetData(&itemDesc, theWantType, &resultDesc);
  163.                 
  164.                 if (noErr == err)        // Overwrite item in list with descriptor item
  165.                     err = AEPutDesc(&objTokenDesc, index, &resultDesc);
  166.                                                         // objTokenDesc is just a copy anyway.
  167.                 (void)AEDisposeDesc(&itemDesc);
  168.                 (void)AEDisposeDesc(&resultDesc);
  169.             }
  170.             
  171.             err = AEDuplicateDesc( &objTokenDesc, result );        // Copy list into result
  172.             break;
  173.             
  174.         default:    
  175.             err = AEDuplicateDesc( theObj, result );    // For OSADoEvent()
  176.             break;
  177.     }
  178.  
  179. done:
  180.     (void)AEDisposeDesc( &objTokenDesc );
  181.     
  182.     return err;
  183. } // HandleGetData
  184.  
  185.  
  186. // Get the actual data for a text token - rather than just offset and length
  187. // used internally.
  188.  
  189. OSErr    GetTextTextProperty(TextToken* theToken, AEDesc *result)
  190. {
  191.     TEHandle    aTEH;
  192.     short        anOffset,
  193.                 aLength;
  194.     OSErr        err;
  195.     
  196.     aTEH = TEHandleFromTextToken(theToken);
  197.     anOffset = theToken->tokenOffset;
  198.     aLength = theToken->tokenLength;
  199.     
  200.     err = BuildStyledTextDesc(aTEH, anOffset, aLength, result);
  201.  
  202.     return(err);
  203. }
  204.  
  205. // -----------------------------------------------------------------------
  206. //    Name:         GetTextProperty
  207. //    Purpose:    Fills result with the requested text property.
  208. // -----------------------------------------------------------------------
  209.  
  210. OSErr GetTextProperty(const AEDesc *theTokenDesc, AEDesc *result)
  211. {
  212.     DPtr          theDocument;
  213.     TEHandle      theHTE;
  214.     Str255        fontName;
  215.     TextStyle     theTextStyle;
  216.     short         lineHeight;
  217.     short         fontAscent;
  218.     TextPropToken theTextPropToken;
  219.     Size          tokenSize;
  220.     AEDesc        tempDesc;
  221.     OSErr         err;
  222.     
  223.     err = AECoerceDesc(theTokenDesc, typeMyTextProp, &tempDesc);
  224.     if (noErr != err) goto done;
  225.     
  226.     GetRawDataFromDescriptor(&tempDesc, (Ptr)&theTextPropToken,
  227.                                     sizeof(theTextPropToken), &tokenSize);
  228.  
  229.     // For each property we build a descriptor to be returned as the reply.
  230.             
  231.     theDocument = DPtrFromWindowPtr(theTextPropToken.tokenTextToken.tokenWindow);
  232.     theHTE = theDocument->theText;
  233.     
  234.     TEGetStyle(theTextPropToken.tokenTextToken.tokenOffset - 1, &theTextStyle,
  235.                                                 &lineHeight, &fontAscent, theHTE);
  236.     
  237.     switch (theTextPropToken.tokenProperty)
  238.     {
  239.         case pText:
  240.         case pContents:
  241.             err = GetTextTextProperty(&(theTextPropToken.tokenTextToken), result);
  242.             break;
  243.             
  244.         case pFont: 
  245.             GetFontName(theTextStyle.tsFont, fontName);
  246.             
  247.             err = AECreateDesc(typeChar,  (Ptr)&fontName[1], fontName[0], result);
  248.             break;
  249.         
  250.         case pTextStyles: 
  251.             err = BuildTextStylesDesc(theTextStyle.tsFace, result);
  252.             break;
  253.  
  254.         case pPointSize: 
  255.             err = CreateOffsetDescriptor(theTextStyle.tsSize, result);
  256.             break;
  257.  
  258.         case pScriptTag: 
  259.             err = CreateOffsetDescriptor(smSystemScript, result);
  260.             break;
  261.         
  262.         case pColor: 
  263.             err = AECreateDesc(typeRGBColor, (Ptr)&theTextStyle.tsColor,
  264.                                         sizeof(theTextStyle.tsColor), result);
  265.             break;
  266.             
  267.         case pLength:
  268.             tokenSize = theTextPropToken.tokenTextToken.tokenLength;
  269.             err = AECreateDesc(typeInteger, (Ptr)&tokenSize,
  270.                                 sizeof(tokenSize), result);
  271.             break;
  272.             
  273.         case pOffset:
  274.             tokenSize = theTextPropToken.tokenTextToken.tokenOffset;
  275.             err = AECreateDesc(typeInteger, (Ptr)&tokenSize,
  276.                                 sizeof(tokenSize), result);
  277.             break;
  278.             
  279.         default:
  280.             err = errAEEventNotHandled;
  281.     }
  282.  
  283. done:
  284.     if (tempDesc.dataHandle)
  285.         AEDisposeDesc(&tempDesc);
  286.     
  287.     return(err);
  288. } // GetTextProperty
  289.  
  290.  
  291. // -----------------------------------------------------------------------
  292. //        Name:             GetWindowProperty
  293. //        Purpose:        Fills result with the requested window property.
  294. // -----------------------------------------------------------------------
  295.  
  296. OSErr    GetWindowProperty(const AEDesc *theTokenDesc, AEDesc *result)
  297. {             
  298.     WindowPropToken theWindowPropToken;
  299.     AEDesc          tempDesc = {typeNull, NULL};
  300.     Size            tokenSize;
  301.     OSErr           err;
  302.     
  303.     err = AECoerceDesc( theTokenDesc, typeMyWindowProp, &tempDesc );
  304.     if (noErr != err) goto done;
  305.     
  306.     GetRawDataFromDescriptor(&tempDesc, (Ptr)&theWindowPropToken,
  307.                                 sizeof(theWindowPropToken),  &tokenSize);
  308.                                 
  309.     err = GetWindowTokenProperty( &theWindowPropToken, result );
  310.  
  311. done:
  312.     (void)AEDisposeDesc( &tempDesc );
  313.             
  314.     return(err);
  315. } // GetWindowProperty
  316.  
  317.  
  318. OSErr    GetWindowTokenProperty( WindowPropToken* theToken, AEDesc *result )
  319. {
  320.     DescType            aType;
  321.     Rect                aRect;
  322.     Boolean                aBoolean;
  323.     Str255                aString;
  324.     long                aLong;
  325.     WStateDataHandle    stateHandle;
  326.     OSErr                err;
  327.  
  328.     switch( theToken->tokenProperty )
  329.     {
  330.         case pClass:
  331.         case pDefaultType:    // ?
  332.             aType = cWindow;
  333.             err = AECreateDesc(typeType, (Ptr)&aType, sizeof(aType), result);
  334.             break;
  335.  
  336.         case pBestType:
  337.             if ( IsDocumentWindow( theToken->tokenWindowToken.tokenWindow ) )
  338.                 aType = cDocument;
  339.             else
  340.                 aType = cWindow;
  341.  
  342.             err = AECreateDesc(typeType, (Ptr)&aType, sizeof(aType), result);
  343.             break;
  344.         
  345.         case pBounds:
  346.             aRect = (*((WindowPeek)theToken->tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox;
  347.             err = AECreateDesc(typeQDRectangle, (Ptr)&aRect, sizeof(aRect), result);
  348.             break;
  349.             
  350.         case pVisible:
  351.             aBoolean = IsVisible( theToken->tokenWindowToken.tokenWindow );
  352.             err = AECreateDesc(typeBoolean, (Ptr)&aBoolean, sizeof(aBoolean), result);
  353.             break;
  354.             
  355.         case pHasCloseBox:
  356.             aBoolean = ((WindowPeek)theToken->tokenWindowToken.tokenWindow)->goAwayFlag;
  357.             err = AECreateDesc(typeBoolean, (Ptr)&aBoolean, sizeof(aBoolean), result);
  358.             break;
  359.             
  360.         case pIsZoomable:
  361.             aBoolean = ((WindowPeek)theToken->tokenWindowToken.tokenWindow)->spareFlag;
  362.             err = AECreateDesc(typeBoolean, (Ptr)&aBoolean, sizeof(aBoolean), result);
  363.             break;
  364.             
  365.         case pIsZoomed:
  366.             if (((WindowPeek)theToken->tokenWindowToken.tokenWindow)->spareFlag)
  367.             {
  368.                 stateHandle = (WStateDataHandle)((WindowPeek)theToken->tokenWindowToken.tokenWindow)->dataHandle;
  369.             
  370.                 HLock((Handle)stateHandle);
  371.                 aBoolean = ! EqualRect(&(*stateHandle)->userState, &(*stateHandle)->stdState);
  372.                 HUnlock((Handle)stateHandle);
  373.             }
  374.             else
  375.                 aBoolean = false;
  376.                             
  377.             err = AECreateDesc(typeBoolean, (Ptr)&aBoolean, sizeof(aBoolean), result);
  378.             break;
  379.         
  380.         case pName:
  381.             GetWTitle(theToken->tokenWindowToken.tokenWindow, aString);
  382.             err = AECreateDesc(typeChar, (Ptr)&aString[1], aString[0], result);
  383.             break;
  384.             
  385.         case pIndex:
  386.             aLong = GetWindowIndex( theToken->tokenWindowToken.tokenWindow );
  387.             err = AECreateDesc(typeLongInteger, (Ptr)&aLong, sizeof(aLong), result);
  388.             break;
  389.     
  390.         default:
  391.             err = errAEEventNotHandled;
  392.     }
  393.     
  394.     return(err);
  395. }
  396.  
  397.  
  398. OSErr    GetDocumentProperty( const AEDesc *theTokenDesc, DescType theWantType, AEDesc *result )
  399. {
  400.     WindowPropToken theWindowPropToken;
  401.     AEDesc          tempDesc = {typeNull, NULL};
  402.     Size            tokenSize;
  403.     OSErr           err;
  404.     
  405.     err = AECoerceDesc( theTokenDesc, typeMyDocumentProp, &tempDesc );
  406.     if (noErr != err) goto done;
  407.     
  408.     GetRawDataFromDescriptor( &tempDesc, (Ptr)&theWindowPropToken,
  409.                                 sizeof( theWindowPropToken ),  &tokenSize );
  410.     
  411.     err = GetDocumentTokenProperty( &theWindowPropToken, theWantType, result );
  412.  
  413. done:
  414.     (void)AEDisposeDesc( &tempDesc );
  415.             
  416.     return(err);
  417. }
  418.  
  419.  
  420. OSErr    GetDocumentTokenProperty( WindowPropToken* theToken, DescType theWantType, AEDesc *result )
  421. {
  422.     AEDesc            aDesc = { typeNull, NULL };
  423.     DescType        aType;
  424.     DescType        aLong;
  425.     Boolean         aBoolean;
  426.     DPtr            aDoc;
  427.     TEHandle        theHTE;
  428.     Handle          thePGXHandle;
  429. //    Str255            aPStr;
  430.     OSErr           err;
  431.  
  432.     aDoc = DPtrFromWindowPtr( theToken->tokenWindowToken.tokenWindow );
  433.     
  434.     switch ( theToken->tokenProperty )
  435.     {
  436.         case pBestType:
  437.         case pClass:
  438.         case pDefaultType:
  439.             aType = cDocument;
  440.             err = AECreateDesc( typeType, (Ptr)&aType, sizeof(aType), result );
  441.         break;
  442.             
  443.         case pText:
  444.         case pContents:
  445.             theHTE = aDoc->theText;
  446.             err = BuildStyledTextDesc(theHTE, 1, (**theHTE).teLength, result);
  447.             break;
  448.  
  449.         case pIsModified:
  450.             aBoolean = aDoc->dirty;
  451.             err = AECreateDesc(typeBoolean, (Ptr)&aBoolean, sizeof( aBoolean ), result);
  452.             break;
  453.             
  454.         case pIndex:
  455.             aLong = GetDocumentIndex( theToken->tokenWindowToken.tokenWindow );
  456.             err = AECreateDesc(typeLongInteger, (Ptr)&aLong, sizeof(aLong), result);
  457.             break;
  458.             
  459.         case pPageSetup:
  460.             if (! gGXIsPresent)
  461.             {
  462.                 HLock((Handle)aDoc->thePrintSetup);
  463.                 err = AECreateDesc(typeTPrint, (Ptr)*(aDoc->thePrintSetup),
  464.                                                                 sizeof(TPrint), result);
  465.                 HUnlock((Handle)aDoc->thePrintSetup);
  466.             }
  467.             else
  468.                 err = errAEEventNotHandled;                         
  469.             break;
  470.  
  471.         case pGXPageSetup:
  472.             if ( gGXIsPresent )
  473.             {
  474.                 thePGXHandle = NewHandle( 0 );
  475.                 GXFlattenJobToHdl( aDoc->documentJob, thePGXHandle );
  476.     
  477.                 HLock( thePGXHandle );
  478.                 
  479.                 err = AECreateDesc( typeTPrint, *thePGXHandle,
  480.                                         GetHandleSize(thePGXHandle), result );
  481.                                                              
  482.                 HUnlock( thePGXHandle );                                                                             
  483.                 DisposeHandle( thePGXHandle );
  484.             }
  485.             else
  486.                 err = errAEEventNotHandled;                     
  487.             break;
  488.             
  489.         case pSelection:
  490.             err = MakeSelectedTextObj( theToken->tokenWindowToken.tokenWindow,
  491.                                                                  aDoc->theText, result );
  492.             break;
  493.  
  494.         case pScript:
  495.             if ( kOSANullScript == aDoc->theScriptID )
  496.             {
  497.                 err = errAENoSuchObject;
  498.                 goto done;
  499.             }
  500.             
  501.             err = GetScriptDesc( aDoc->theScriptID, theWantType, result );
  502.             break;
  503.  
  504.         default:
  505.             err = GetWindowTokenProperty( theToken, result );
  506.     }
  507.  
  508. done:
  509.     (void)AEDisposeDesc( &aDesc );
  510.             
  511.     return err;
  512. }
  513.  
  514. // -----------------------------------------------------------------------
  515. //        Name:             GetApplicationProperty
  516. //        Purpose:        Fills result with the requested application property.
  517. // -----------------------------------------------------------------------
  518.      
  519. OSErr    GetApplicationProperty( const AEDesc *theTokenDesc, DescType theWantType, AEDesc *result )
  520. {
  521.     Boolean                isFront;
  522.     AppPropToken        theAppPropToken;
  523.     AEDesc                aDesc = {typeNull, NULL},
  524.                         nullDesc = {typeNull, NULL};
  525.     Size                tokenSize;
  526.     DescType            theType;
  527.       short                refNum;
  528.     Handle                aHandle;
  529.       OSErr                err;
  530.     
  531.     err = AECoerceDesc(theTokenDesc, typeMyApplProp, &aDesc);
  532.     if (noErr != err) goto done;
  533.     
  534.     GetRawDataFromDescriptor(&aDesc, (Ptr)&theAppPropToken,
  535.                                         sizeof(theAppPropToken), &tokenSize);
  536.       
  537.     switch ( theAppPropToken.tokenProperty )
  538.     {
  539.         case pBestType:      // Return the null descriptor representing
  540.         case pDefaultType:    // the application.
  541.             err = AEDuplicateDesc(&nullDesc, result);
  542.             break;
  543.         
  544.         case pClass:
  545.             theType = cApplication;
  546.             err = AECreateDesc(typeType, (Ptr)&theType, sizeof(DescType), result);
  547.             break;
  548.         
  549.         case pName:
  550.                 // We got the name and FSSpec for our application
  551.                 //  in InitApplicationRec().
  552.             err = AECreateDesc( typeChar, (Ptr)&gAppRec.theName[1], gAppRec.theName[0], result );
  553.             break;
  554.         
  555.         case pIsFrontProcess:
  556.             isFront = ! gInBackground;
  557.             err = AECreateDesc(typeBoolean, (Ptr)&isFront, sizeof(isFront), result);
  558.             break;
  559.  
  560.         case pVersion:
  561.             refNum = CurResFile();    // save current resource
  562.             UseResFile(gRefNum);    // set this resource to be current
  563.             aHandle = (Handle)Get1Resource((ResType)'vers', 1);
  564.             HLock(aHandle);
  565.             err = AECreateDesc(typeVersion, *aHandle, GetHandleSize(aHandle), result);
  566.             HUnlock(aHandle);
  567.             UseResFile(refNum);     // reset back to resource previously set
  568.             break;
  569.             
  570.         case pResults:
  571.             err = MakeDocumentObj( GetResultsWindPtr( ), result );
  572.             break;
  573.  
  574.         case pScript:
  575.             if ( kOSANullScript == gAppRec.theScriptID )
  576.             {
  577.                 err = errAENoSuchObject;
  578.                 goto done;
  579.             }
  580.             
  581.             err = GetScriptDesc( gAppRec.theScriptID, theWantType, result );
  582.             break;
  583.  
  584.         default:   // We don't handle the requested property.
  585.             err = errAEEventNotHandled;
  586.     }
  587.  
  588. done:
  589.     (void)AEDisposeDesc( &aDesc );
  590.             
  591.     return err;
  592. } // GetApplicationProperty
  593.  
  594.  
  595. OSErr    GetMenuProperty( const AEDesc *theTokenDesc, DescType theWantType, AEDesc *result )
  596. {
  597.     Str255                aPStr;
  598.     MenuPropToken        thePropToken;
  599.     MenuItemToken        aMenuItemToken;
  600.     AEDesc                aDesc = {typeNull, NULL};
  601.     Size                tokenSize;
  602.     DescType            aType;
  603.     MenuScriptRecPtr    aMenuRecPtr;
  604.       OSErr                err;
  605.     
  606.     err = AECoerceDesc( theTokenDesc, typeMyMenuProp, &aDesc );
  607.     if (noErr != err) goto done;
  608.     
  609.     GetRawDataFromDescriptor( &aDesc, (Ptr)&thePropToken,
  610.                                         sizeof( thePropToken ), &tokenSize );
  611.       
  612.     switch ( thePropToken.tokenProperty )
  613.     {
  614.         case pBestType:
  615.         case pDefaultType:
  616.         case pClass:
  617.             aType = cMenu;
  618.             err = AECreateDesc( typeType, (Ptr)&aType, sizeof( DescType ), result );
  619.             break;
  620.         
  621.         case pName:
  622.             GetMenuName( &thePropToken.token, aPStr );
  623.  
  624.             err = AECreateDesc( typeChar, (Ptr)&aPStr[1], aPStr[0], result );
  625.             break;
  626.             
  627.         case pMenuID:
  628.             err = AECreateDesc( typeShortInteger, (Ptr)&thePropToken.token.tokenID,
  629.                                             sizeof( thePropToken.token.tokenID ), result );
  630.             break;
  631.  
  632.         case pScript:
  633.                 // Get a Ptr to the script for the whole menu
  634.             aMenuRecPtr = GetMenuScriptRecPtr( thePropToken.token.tokenID * 32 );
  635.             if ( ! aMenuRecPtr || kOSANullScript == aMenuRecPtr->theScriptID )
  636.             {
  637.                 err = errAENoSuchObject;
  638.                 goto done;
  639.             }
  640.             
  641.             err = GetScriptDesc( aMenuRecPtr->theScriptID, theWantType, result );
  642.             break;
  643.             
  644.             
  645.         case pSelection:
  646.             aMenuItemToken.tokenItem = GetScriptActiveItem( );
  647.             
  648.             if ( 0 == aMenuItemToken.tokenItem )
  649.                 aMenuItemToken.tokenItem = 1;
  650.             
  651.             if ( 0 != aMenuItemToken.tokenItem )    
  652.             {                    // A selection is only current while executing a command
  653.                                 //  that has an associated script.
  654.                 aMenuItemToken.tokenMenuToken = thePropToken.token;
  655.                 err = MakeMenuItemSpecifier( &aMenuItemToken, result );
  656.             }
  657.             else
  658.                 err = errAENoSuchObject;
  659.             break;
  660.  
  661.         default:   // We don't handle the requested property.
  662.             err = errAEEventNotHandled;
  663.     }
  664.  
  665. done:
  666.     (void)AEDisposeDesc( &aDesc );
  667.             
  668.     return(err);
  669. }
  670.  
  671.  
  672. OSErr    GetMenuItemProperty( const AEDesc *theTokenDesc, DescType theWantType, AEDesc *result )
  673. {
  674.     Str255                aPStr;
  675.     MenuItemPropToken    thePropToken;
  676.     AEDesc                aDesc = {typeNull, NULL};
  677.     Size                tokenSize;
  678.     DescType            aType;
  679.     MenuScriptRecPtr    aMenuRecPtr;
  680.       OSErr                err;
  681.     
  682.     err = AECoerceDesc( theTokenDesc, typeMyMenuItemProp, &aDesc );
  683.     if (noErr != err) goto done;
  684.     
  685.     GetRawDataFromDescriptor( &aDesc, (Ptr)&thePropToken,
  686.                                         sizeof( thePropToken ), &tokenSize );
  687.       
  688.     switch ( thePropToken.tokenProperty )
  689.     {
  690.         case pBestType:      // Return the null descriptor representing
  691.         case pDefaultType:    // the application.
  692.         case pClass:
  693.             aType = cMenuItem;
  694.             err = AECreateDesc( typeType, (Ptr)&aType, sizeof( DescType ), result );
  695.             break;
  696.         
  697.         case pName:
  698.             GetMenuItemName( &thePropToken.token, aPStr );
  699.  
  700.             err = AECreateDesc( typeChar, (Ptr)&aPStr[1], aPStr[0], result );
  701.             break;
  702.             
  703.         case pItemNumber:
  704.             err = AECreateDesc( typeShortInteger, (Ptr)&thePropToken.token.tokenItem,
  705.                                         sizeof( thePropToken.token.tokenItem ), result );
  706.             break;
  707.             
  708.         case pEnabled:
  709.             err = errAEEventNotHandled;
  710.             break;
  711.  
  712.         case pScript:
  713.                 // Get a Ptr to the script for the menu item
  714.             aMenuRecPtr = GetMenuScriptRecPtr( thePropToken.token.tokenMenuToken.tokenID * 32
  715.                                                 + thePropToken.token.tokenItem );
  716.             if ( ! aMenuRecPtr || kOSANullScript == aMenuRecPtr->theScriptID )
  717.             {
  718.                 err = errAENoSuchObject;
  719.                 goto done;
  720.             }
  721.             
  722.             err = GetScriptDesc( aMenuRecPtr->theScriptID, theWantType, result );
  723.             break;
  724.  
  725.         default:   // We don't handle the requested property.
  726.             err = errAEEventNotHandled;
  727.     }
  728.  
  729. done:
  730.     (void)AEDisposeDesc( &aDesc );
  731.             
  732.     return(err);
  733. }
  734.  
  735.